home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / gplot386.zip / GNUPLOT.EL < prev    next >
Lisp/Scheme  |  1992-06-06  |  6KB  |  147 lines
  1. ; 
  2. ; gnu-plot.el - Definitions of GNU-PLOT mode for emacs editor.
  3. ; 
  4. ; Author:    Gershon Elber
  5. ;         Computer Science Dept.
  6. ;         University of Utah
  7. ; Date:    Tue May 14 1991
  8. ; Copyright (c) 1991, 1992, Gershon Elber
  9. ;
  10. ; This file defines an environment to run edit and execute GNU-PLOT programs.
  11. ; Such a program should have a '.gp' extension in order it to be in
  12. ; gnu-plot-mode major mode. Two new functions are provided to communicate
  13. ; between the editted file and the plotting program:
  14. ; 1. send-line-to-gnu-plot - sends a single line to the plotting program for
  15. ;    execution. The line sent is the line the cursor is on,
  16. ;    Bounded to Meta-E by default.
  17. ; 2. send-region-to-gnu-plot - sends the region from the current mark
  18. ;    (mark-marker) to current position (point-marker) to the plotting program.
  19. ;    This function is convenient for sending a large block of commands.
  20. ;    Bounded to Meta-R by default.
  21. ; Both functions checks for existance of a buffer named gnu-plot-program
  22. ; and a process named "gnu-plot" hooked to it, and will restart a new process
  23. ; or buffer if none exists. The program to execute as process "gnu-plot" is
  24. ; defined by the gnu-plot-program constant below.
  25. ;
  26.  
  27. (defvar gnu-plot-program "gnuplot"
  28.   "*The executable to run for gnu-plot-program buffer.")
  29.  
  30. (defvar gnu-plot-echo-program t
  31.   "*Control echo of executed commands to gnu-plot-program buffer.")
  32.  
  33. (defvar gnu-plot-mode-map nil "")
  34. (if gnu-plot-mode-map
  35.     ()
  36.   (setq gnu-plot-mode-map (make-sparse-keymap))
  37.   (define-key gnu-plot-mode-map "\M-e" 'send-line-to-gnu-plot)
  38.   (define-key gnu-plot-mode-map "\M-r" 'send-region-to-gnu-plot))
  39.  
  40. ;;;
  41. ;;; Define the gnu-plot-mode
  42. ;;;
  43. (defun gnu-plot-mode ()
  44.   "Major mode for editing and executing GNU-PLOT files.
  45.  
  46. see send-line-to-gnu-plot and send-region-to-gnu-plot for more."
  47.   (interactive)
  48.   (use-local-map gnu-plot-mode-map)
  49.   (setq major-mode 'gnu-plot-mode)
  50.   (setq mode-name "Gnu-Plot")
  51.   (run-hooks 'gnu-plot-mode-hook))
  52.  
  53. ;;;
  54. ;;; Define send-line-to-gnu-plot - send from current cursor position to next
  55. ;;; semicolin detected.
  56. ;;;
  57. (defun send-line-to-gnu-plot ()
  58.   "Sends one line of code from current buffer to the GNU-PLOT program.
  59.  
  60. Use to execute a line in the GNU-PLOT plotting program. The line sent is
  61. the line the cursor (point) is on.
  62.  
  63. The GNU-PLOT plotting program buffer name is gnu-plot-program and the 
  64. process name is 'gnu-plot'. If none exists, a new one is created.
  65.  
  66. The name of the gnu-plot program program to execute is stored in
  67. gnu-plot-program variable and may be changed."
  68.   (interactive)
  69.   (if (equal major-mode 'gnu-plot-mode)
  70.     (progn
  71.       (make-gnu-plot-buffer)        ; In case we should start a new one.
  72.       (beginning-of-line)
  73.       (let ((start-mark (point-marker)))
  74.     (next-line 1)
  75.     (let* ((crnt-buffer (buffer-name))
  76.            (end-mark (point-marker))
  77.            (string-copy (buffer-substring start-mark end-mark)))
  78.       (switch-to-buffer-other-window (get-buffer "gnu-plot-program"))
  79.       (end-of-buffer)
  80.       (if gnu-plot-echo-program
  81.         (insert string-copy))
  82.       (set-marker (process-mark (get-process "gnu-plot")) (point-marker))
  83.       (if (not (pos-visible-in-window-p))
  84.         (recenter 3))
  85.       (switch-to-buffer-other-window (get-buffer crnt-buffer))
  86.       (process-send-region "gnu-plot" start-mark end-mark)
  87.       (goto-char end-mark))))
  88.     (message "Should be invoked in gnu-plot-mode only.")))
  89.  
  90. ;;;
  91. ;;; Define send-region-to-gnu-plot - send from current cursor position to
  92. ;;; current marker.
  93. ;;;
  94. (defun send-region-to-gnu-plot ()
  95.   "Sends a region of code from current buffer to the GNU-PLOT program.
  96.  
  97. When this function is invoked on an GNU-PLOT file it send the region
  98. from current point to current mark to the gnu-plot plotting program.
  99.  
  100. The GNU-PLOT plotting program buffer name is gnu-plot-program and the
  101. process name is 'gnu-plot'. If none exists, a new one is created.
  102.  
  103. The name of the gnu-plot program program to execute is stored in
  104. gnu-plot-program variable and may be changed."
  105.   (interactive)
  106.   (if (equal major-mode 'gnu-plot-mode)
  107.     (progn
  108.       (make-gnu-plot-buffer)     ; In case we should start a new one.
  109.       (copy-region-as-kill (mark-marker) (point-marker))
  110.       (let ((crnt-buffer (buffer-name)))
  111.     (switch-to-buffer-other-window (get-buffer "gnu-plot-program"))
  112.     (end-of-buffer)
  113.     (if gnu-plot-echo-program
  114.       (yank))
  115.     (set-marker (process-mark (get-process "gnu-plot")) (point-marker))
  116.     (if (not (pos-visible-in-window-p))
  117.       (recenter 3))
  118.     (switch-to-buffer-other-window (get-buffer crnt-buffer))
  119.     (process-send-region "gnu-plot" (mark-marker) (point-marker))))
  120.     (message "Should be invoked in gnu-plot-mode only.")))
  121.  
  122. ;;;
  123. ;;; Switch to "gnu-plot-program" buffer if exists. If not, creates one and
  124. ;;; execute the program defined by gnu-plot-program.
  125. ;;;
  126. (defun make-gnu-plot-buffer ()
  127.   "Switch to gnu-plot-program buffer or create one if none exists"
  128.   (interactive)
  129.   (if (get-buffer "gnu-plot-program")
  130.     (if (not (get-process "gnu-plot"))
  131.       (progn
  132.     (message "Starting GNU-PLOT plotting program...")
  133.     (start-process "gnu-plot" "gnu-plot-program" gnu-plot-program)
  134.     (process-send-string "gnu-plot" "\n")
  135.     (message "Done.")))
  136.     (progn
  137.       (message "Starting GNU-PLOT plotting program...")
  138.       (start-process "gnu-plot" "gnu-plot-program" gnu-plot-program)
  139.       (process-send-string "gnu-plot" "\n")
  140.       (message "Done."))))
  141.  
  142. ;;;
  143. ;;; Autoload gnu-plot-mode on any file with gp extension. 
  144. ;;;
  145. (setq auto-mode-alist (append '(("\\.gp$" . gnu-plot-mode))
  146.                   auto-mode-alist))
  147.